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LIP, LOGICAL "JF" PACKAGE 

DECUS Program Library Write-up DECUS No. 8-271 

ABSTRACT 


LIP enables logical "IF” statements involving floating point 
variables to be written in a conventional manner within assembly- 

language programs. The logical relations and operators available 
are:- 


Mnemonic Meaning 


GT 

Greater than 


GE 

Greater than 

or equal to 

EQ 

Eqxial to 


LE 

Less than or 

eqtial to 

LT 

Less than 


NE 

Not equal to 


AN 

Logical AND 


OR 

Logical OR 



e. g. the FORTRAN statement:- 

IF ((A. GT. B)OR(C. LT. D)) LOG 
is written in machine code format as:- 

IF;A;GT;B;OR;C;LT;D;GO;LOC where A, B, C and D are 3 word 
floating point variables. 


3- Requirements 

3.1 Storage. 

This package occupies locations 4, 5400-5577. The 3 word 
Floating Point package (Digital 8-5-S) which must also 
be in core occupies locations 5-7, 40-63, 5600-7577, 











Therefore total storage requirements are 4-7, 40-63, 


3. 2 

4. 

4.1 


4.2 


5400-7577. 

Equipment. 

Standard PDP-8 , ASR-33 Teletype. 

Usage 

Loading. 

This package is loaded with the binary loader (Digital 8-2-U). 
The binary tape supplied contains only the LIP package and 
hence the 3 word Floating Point package (Digital 8-5-S) 
must also be loaded. 

Calling Sequence. 

Location 4 is used as an indirect address for entry to the 
package. This is accomplished by use of the IF instruction 

which is equivalent to JMS I 4 (see Discussion). 

Definitions. 

Since the nmemonic instructions used in the "IF” statements 
are not held in the permanent symbol tables of the PAL and 

MACRO compilers they must be defined by the user's 
program as follov^s:- 


3. 2 

4. 

4.1 


4.2 


IF 

GO 

OR 

AN 

GT 

GE 

EQ 

LE 

LT 

NE 


4404 

7777 

7776 

7775 

7774 

7773 

7772 

7771 

7770 

7767 
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5. Restrictions 
None. 

6. Description 

6.1 Discussion 

LIP enables logical "IF” statements to be written within 
assembly language programs in a format similar in function 
and appearance to the corresponding FORTRAN and ALGOL 
statements. The general form is:- 

IF;(logical expression);GO;LOC ( 1 ) 

The complete statement is normally written on one line with 
semicolons between each variable name and instruction. 

However, if a statement is too long it may be continued on 
subsequent lines. 

Each statement must include both the IF and GO instructions 
which initiate the entry to and exit from the package respectively. 

The logical expressibn, indicated in (1) is evaluated 
by the package and if it is found to be true control is 
transferred to the location named after the GO instruction 
(LOG in (1)). If it is not true control is returned to the 
next location after the end of the IF statement. The 
logical expression is composed of floating point variable 
names combined using the following relations and logical 
operators. 
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Mnemonic 


Meaning 


GT 

Greater than 

GE 

Greater than or equal to 

EQ 

Equal to ( = ) 

LE ■ 

Less than or equal to 

LT 

Less than 

^ NE 

Not equal to 

AN 

Logical AND operator 

OR 

Logical OR operator 

Examples of logical expressions:- 

A > B 

A;GT;B 

(A <B)OR(C > D) 

A;LT;B;OR;C;GT;D 

(A = B)AND (C = 

D) A;EQ;B;AN;C;EQ;D 

A > B > C 

A;GT;B;AN;B;GT;C 

All variable names must be 

3 word floating point numbers. 


Although there is no limit to the size of logical expressions, it is 
important to note that evaluation takes place from left to right, 
e. g. A;GT;B;AN;C;LT;B;OR;C;LE;D is equivalent to:- 
(((A>B) AND (C<B)) OR (C<D)) 

6.2 Example. 

Let A, B, C and D be floating point variables. It is required 

to know whether any of the following conditions hold;- 

(I) A=B=C=D 

(n) A>B>C>D 

(ni) A < B < C < D 

This would be programed as:- 

IF;A;EQ;B;AN;B;EQ;C;AN;C;EQ;D;GO;Ll 


IF;A;GT;B;AN;B;GT;C;AN;C;GT;D;GO;L2 

IF;A;LT;B;AN;B;LT;C;AN;C;LT;D;GO;L3 
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Errors. 


6. 3 


L4, . / (I), (II), (ni) are not true 

. / (l) is true. 

^2, . / (n) is true. 

. / (ni) is true. 


Any format errors in an IF statement will cause the package 
to halt. Logical variables are not allowed and therefore a 
statement such as:- IF} A} GO} LOG is illegal and would 
produce a failure. The logical operators OR and AN may 
link only expressions of the type A;GT;B and hence the 
statement:- 

IF;A;OR;B;GT;C;GO;LOC 

is illegal. The correct version of this statement is:- 

IF;A;GT;C;OR;B;GT;C;GO;LOC 


A variable name may not be both preceded and followed by 
one of the relations GT,GE etc. Therefore the statement:- 
IF;A;GT;B;GT;C;GO;LOC is illegal. 

The correct version is:- 

IF;A;GT;B;AN;B;GT;C;GO;LOC. 
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/LIP, A LOGICAL "IF" ROUTINE 
/FOR ASSEMBLY LANGUAGE PROGRAMS 

/DEFINITIONS:- 

1F=44J04 

G 0=7777 

OR=7776 

AN=7775 

GT=7774 

GE=7773 

EQ=7772 

LE=7771 

LT-7770 

NE=7767 

?GE1=5000 

FSUB=?000 

EEX1=000 


004 

540 

*4 

5400 

540 

0000 

*5400 

POINTR, 

0 

540} 

3237 


DCA CLV 

5402 

5^04 


JMP .+2 

5403 

2^ 

LPl, 

ISZ POINTR 

5404 

2200 


ISZ POINTR 

5405 

4240 

LP4, 

JMS FUNC 

5406 

7450 


SNA 

54jel7 

5226 


JMP OUT 

541jel 

7700 


SMA CLA 

5411 

5215 


JMP LP2 

5412 

4277 


JMS VAL 

5413 

3237 


■ DCA CLV 

5414 

52103 


JMP LPl 

5415 

200 

LP2, 

ISZ POINTR 

5416 

2200 


ISZ POINTR 

5417 

4240 


JMS FUNC 

54^0 

7700 


SMA CLA 

5421 

7402 


HLT 

5422 

4277 


JMS VAL 

5423 

4261 


JMS LOG 

5424 

3237 


DCA CLV 

5425 

5^03 


JMP LPl 

5426 

22100 

OUT, 

ISZ POINTR 

5427 

1237 


TAD CLV 

543J0 

7650 


SNA CLA 

5431 

5235 


JMP LP6 

5432 

1600 


TAD 1 POINTR 

5433 

32100 


DCA POINTR 

5434 

5600 


JMP 1 POINTR 


/INDIRECT ADDRESS FOR ROUTINE 
/USED TO EXAMINE INSTRUCTIONS 


\ 

/ILLEGAL format 

/EXIT FROM PACKAGE 
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•9 


5435 2200 LP6, 

5436 5600 

5437 0000 CLV, 

5440 0000 FUNC, 

5441 ]600 

5442 7500 

5443 74jef2 

5444 700] 

5445 7450 

5446 5640 

5447 1377 

5450 7510 

5451 5254 

5452 7201 
A 5453 5640 
^ 5454 1376 

5455 7710 

5456 7402 

5457 7040 

5460 5640 

5461 0ie00 log, 

5462 1237 

5463 3275 

5464 1200 

5465 1375 

5466 3276 

5467 1676 

5470 7001 

5471 1275 

5472 7700 

5473 7001 

^ 5474 5661 

5475 0000 RHS, 

5476 0000 ITEM, 

5477 0000 VAL, 

5500 1200 

5501 1374 

5502 3352 

5503 1752 

5504 3351 

5505 2352 

5506 2352 

5507 1752 

5510 3352 

5511 4407 

5512 5751 

5513 2752 

5514 0000 


ISZ POINTR 
JMP I POINTR 
0 
0 

TAD I POINTR 

SMA 

HLT 

lAC 

SNA 

JMP I FUNC 
TAD (2) 

SPA 

JMP .+3 
CLA lAC 
JMP I FUNC 
TAD (6) 

SPA GLA 

HLT 

CMA 

JMP I FUNC 
0 

TAD CLV 
DCA RHS 
TAD POINTR 
TAD (-2) 

DCA LTEM 
TAD I LTEM 
lAC 

TAD RHS 
SMA CLA 
lAC 

JMP I LOG 
0 
0 
0 

tad POINTR 
TAD (-1) 

DCA VAL2 
TAD I VAL2 
DCA VALl 
ISZ VAL2 
ISZ VAL2 
tad I VAL2 
DCA VAL2 
JMS I 7 
FGET I VALl 
FSUB I VAL2 
FEXT 


/CURRENT LOGICAL VALUE 
/DETERMINES INSTRUCTIONS 

/ILLEGAL INSTRUCTION 


/ILLEGAL INSTRUCTION 


/EVALUATES 'AND', 'OR' 


/EVALUATES 'A;GT;B' ETC. 
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5515 

5516 

5517 
552j6 

5521 

5522 

5523 

5524 


1)345 

7450 

5327 

7700 

5337 

1600 

1376 

7710 


TAD 45 
SNA 

JMP EQUAL 
SMA CLA 
JMP GRET 
TAD I POINTR 
TAD (6) 

SPA CLA 
lAC 


5526 

5677 


JMP 1 VAL 

5527 

1600 

EQUAL, 

TAD 1 POINTR 

5530 

1373 


TAD (4) 

5531 

750 


SMA 

5532 

5677 


JMP 1 VAL 

5533 

1372 


TAD (3) 

5534 

7700 


SMA CLA 

5535 

7001 


lAC 

5536 

5677 


JMP 1 VAL 

. 5537 

1600 

GRET, 

TAD 1 POINTR 

5540 

1371 


TAD (5) 

5541 

7510 


SPA 

5542 

5345 


JMP .+3 

5543 

70] 


CLA lAC 

5544 

5677 


JMP1VAL 

5545 

1372 


TAD (3) 

5546 

7710 


SPA CLA 

5547 

7001 


lAC 

5550 

5677 


JMP1VAL 

5551 

0000 

VALl, 

0 

5552 

0000 

VAL2, 

0 

5571 

0005 



5572 

0003 



5573 

0004 



5574 

7777 



5575 

7776 



5576 

0006 



5577 

0032 









AN 

CLV 

EQ 

EQUAL 

FEXT 

FGET 

FSUB 

FUNC 

GE 

GO 

GRET 

GT 

IF 

LE 

^ log 

9 EPI 
LP2 
LP4 
LP6 
LT 

LTEM 

NE 

OR 

OUT 

POINTR 

RHS 

VAL 

VALI 

VAL2 


7775 

5437 

7772 

5527 

544 ^ 

7773 
7777 
5537 

7774 
44J04 
7771 
5461 
54^3 
5415 
54J05 
5435 
7770 
5476 
7767 
7776 
5426 
5400 

5476 

5477 

5551 

5552 






